h1 {
background: 
color : #000000
font size : 5
font-family : Georgia
}
body {
background-color: #b3FFFF
}
p {
margin-bottom : 80px
}

Project requirements

I’ve completed the project requirements of GitHub by creating a repository for my project 1. I can ensure that all my project files including meme images and codes are well organized and used in the repository. I used the version control features of GitHub, as well as facilitating collaboration and ensuring project integrity by adding a Readme.md file to my project. In addition, I’ve used my GitHub website pages to review my knowledge and explore more about code.

Here is the link to my GitHub website : https://yujiamiadu.github.io/stats220/

Here is the link to my project 1 : https://yujiamiadu.github.io/project1/

screenshot <- image_read("/Users/yayadu/Desktop/stats220/Project1/screenshot.png")
screenshot

My meme

meme1 <- image_read("https://i.chzbgr.com/full/9380397312/h79ABF721/yeah-im-a-pacifist") %>%
  image_scale(500)

meme2 <- image_read("https://i.chzbgr.com/full/9381258496/h73C3219F/its-called-fashion-barbara") %>%
  image_scale(500)

upset_text <- image_blank(width = 500, 
                             height = 500,
                             color = "#000000") %>%
  image_annotate(text = "upset cat",
                 color = "#FFFFFF",
                 size = 50,
                 font = "Impact",
                 gravity = "center")

funny_text <- image_blank(width = 500,
                          height = 500, 
                          color = "#000000") %>%
 image_annotate(text = "funny cat",
                color = "#FFFFFF", 
                size = 50,
                font = "Impact",
                gravity = "center")

# combine my meme and text together
combination_my_meme <- c(meme1, upset_text, meme2, funny_text) 
  
# save my meme and text as an image file (.png)
combination_my_meme1 <- image_append(combination_my_meme)
image_write(combination_my_meme1, "my_meme.png")
combination_my_meme1

# create animation of combination_my_meme
meme_gif <- image_animate(combination_my_meme, fps = 2)

# save my meme as gif
image_write(meme_gif, "my_animation.gif")

Creativity

I add a flag Emoji in my GitHub website page to make the content more interesting.

Learning reflection

The most important thing I’ve learned from module 1 is to create HTML by using R and Rstudio. The lab tasks are very useful for me to understand and practice for coding and R programming. From the knowledge I’ve learned so far, R Markdown is a combination of images, markdown and code. It’s also a tool that gather markdown syntax and R programming language together, which makes people more easier to create websites or reports. Regarding data technologies, I’m curious about exploring more about advanced data visualization techniques and tools. I’m eager to learn sophisticated visualization libraries such as D3.js which would help me to provide more fluid presentations and aid the audience or customers in visualizing data sets. By exploring these aspects more, I’ll be able to create more informative data-driven presentations and applications.